home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v9n20.arc / XVI_UD1.XTS < prev    next >
Text File  |  1990-10-29  |  2KB  |  60 lines
  1. ; XVI_UD1.XTS
  2. ; PC MagNet Utilities Database Down Load, Part One
  3. ; This Script is run before you go on-line.
  4. ; by Rick Ayre 5.1.90
  5.  
  6. CApture off                          ; Turn off screen capture.
  7.  
  8. Label clear_keys
  9.  
  10. When -                               ; Clear a when condition
  11.  
  12. FKey A1 ""                           ; Clear function keys Alt-1
  13. FKey A2 ""                           ; through Alt-5 so we can
  14. FKey A3 ""                           ; store our file names as
  15. Fkey A4 ""                           ; variables in them.
  16. Fkey A5 ""
  17.  
  18. SCreen L wy                          ; Change color of command line
  19.  
  20. LAbel what_files                     ; Store file names in Alt function keys
  21.  
  22.  ASk @A1 Name of file to download:   ; Get name of firt file
  23.  IF @A1 = "" JUmp what_next          ; Start over if no name here
  24.  
  25.  ASk @A2 Next file to download (Press Enter if done.):
  26.  IF @A2 = "" JUmp get_files          ; Start downloads when no more names
  27.  
  28.  ASk @A3 Next file to download (Press Enter if done.):
  29.  IF @A3 = "" JUmp get_files
  30.  
  31.  ASk @A4 Next file to download (Press Enter if done.):
  32.  IF @A4 = "" JUmp get_files
  33.  
  34.  ASk @A5 Last file to download (Press Enter if done.):
  35.  IF @a5 = "" JUmp get_files
  36.  
  37. LAbel get_files
  38.  
  39. LOad MagNet
  40.  
  41. LAbel what_next                      ; Ask if you want to restart.
  42.  
  43. ASK Start Over (Y/N):
  44.  
  45.  SCreen L kw
  46.  IF Nn JUmp get_off
  47.  IF yY JUmp what_files
  48.  
  49. Label get_off                        ; Log off and hang up phone.
  50.  
  51.    REply OFF |                       ; Log off CompuServe.
  52.    WAit quiet 50                     ; Wait for inactivity.
  53.    BYe                               ; Break phone line connection.
  54.  
  55. ENd
  56.  
  57. ; The Script processing now loads the MagNet.XTK, then the MagNet.XTS
  58. ; files.  When it has succesfully logged on to MagNet it picks up
  59. ; your down load with Part Two (XVI_UD2.XTS).
  60.